Delphi环境下利用TWAIN实现对扫描仪的控制

【例子介绍】

Delphi环境下利用TWAIN实现对扫描仪的控制

【相关图片】

【源码结构】

procedure TForm1.Button1Click(Sender: TObject);
begin
  if loaddsm then
  begin
     isdsmopen:=opendsm;
     if isdsmopen then
         if  selds then
         begin
             isdsopen:=opends;
             if isdsopen then
             begin
                 label1.Caption :='应用程序可接收的图片数量为：' inttostr(getinfo);
                 enableds;
             end;
         end;
  end;
end;